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IF START 


I DENT 
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THIS ROUTINE OOES ALL THE SET UP FOR THE TRANSFER OF 
INFORMATION BETWEEN THE POP3 AND THE 3300. IN THE 
PROCESS OF DOING THIS IT BUILD THREE MAIN QUEUES CALLED 
POP IQ {INPUT FROM PDP8) , PDPGQ (OUTPUT TO POP8), AND 
PQPCQ (CONTROL INFORMATION FROM PDFS). TO ADD A NEW 
TYPE OF DATA OR TO CHANGE EXISTING ONES AROUND THE 
ENTRIES IN THESE TABLES MUST BE CHANGED. 

THIS ROUTINE ALSO SETS VARIOUS BITS IN PSA3LK TO SAY 
THAT VARIOUS TERMINALS ARE NOT TTYS BUT 200 UT/S 
OR TEKTRONIX GRAPHIC TERMINALS. ALL INFORMATION USED 
IN THE BUILDING AND MODIFING OF THE VARIOUS TABLES IS 
OBTAINED FROM THE SYMBOL BLOCK VIA INITIAL. 


ENTRIES IN THE SYMBOL BLOCK LOOK 


FOLLOWS ; 


VFO H48/0EVICE 

VFO,B A3/NUMBER OF TIMES TC 

VF0 j B A5/0UTPUT LABEL 

VFO,B A5/INPUT LABEL 

VFD-,8 AS/CONTROL BYTE 

VFD,B A6/PDP-8 MUX CHANNEL 


MULTI PROGRAM 


NUMBER 


READER 


* rsf Y Y "V Y Y Y* nr.'Y*. - 




YSMAC 


INCLUDE 

COSY/ 

UTLPDEF 

* nr -y 1 & nr i 


+SY3MAC 


08/17/74 0453 


- Y *Y‘ ■*!“ -y V “Y *Jf* Y Y* " 


1 * * * * ^ * y * K * * V * A 


URBL00K 3LOCK.DEFINIIT0NS 


0U000 
0 0 0 01 
0 0 0 G 2 

0 Q 0 0 3 


0 0 0 0 4 


0 0005 

0 0 0 0 6 
0 0007 
0 0 0 i 0 
0 0 0 11 
0 0 0 12 


0 0 0 13 
0 0014 
0 00 15 
0 0016 
0 0 0 16 


11 

Ffi 

EQU 

0 

POINTER TO NEXT FILE BLOCK 

*Y 

12 

3LF 

ECU \ 

FS + i 

COUNT OF BLOCKS IN THIS FILE 

•Y* 

13 

BF8GN 

EQU ; - 

; S LF,+i . 

QUARTER PAGE NUMBER OF CURRENT 

* 

14. 

m"*' 



512 WORD BLOCK 

* 

i !2*- 

8FCPP 

EQU 

BFBGN+l 

POINTER TD NEXT WORD TC BE 

* 

1 6. 

* t 



LOADED FROM THIS BLOCK. THIS 

& 

17 

& ^ 



POINTER IS RELATIVE TO THE 


18 

* ^ 



BEGINNING OF THE CURRENT BLOCK . 

* 

i 9 

CAL8-AK 

EQU 

BFCPP+1 

GO TO THIS ADDRESS WHEN SUFFER 

■X 

2 0 

. * 



IS DONE AFTER AN INTERRUPT 

Y 

21 

■ m v ' '. 



BIT23 SEZ7 CAL3AK 

£ 

2 2 

I MAO 

EQU 

GAL8AK+1 

LOCATION WHERE RECORD IS TO BE 

* 

23 

m . "***' 



PLACED OR MOVED FROM. 


24 

LNIM 

EQU 

IMAO+1 

MAXIMUM ALLOWABLE RECORD SIZE 

* 

2 5 

KILLFLAG 

EQU 

LNIM+i 

STI *40 

* 

26 

ENAD 

EQU 

KILLFLAG+1 

ENI SLOCK,XI 

r 

2 7 

NJM 

EQU 

ENAO+l 

UUP IMPURE 


28 

ENIT 

EQU 

NJM+1 . 

TEMP FOR INDEX 3 

* 

29 

•1 



IF BIT23 DEVICE MUST BE STARTED 


3 0 

* r 



BY OPERATOR 

** 

31 

»"* 



IF 8IT22 DO NOT PROCESS FORMS ON 


32 

.« T 



THIS DEVICE 

* 

33 

* * 



IF BIT21 THEN STOP MACRO 


34 




IF EIT20 THEN BUFFER IS UNSAFE 

V 

35 

» ^ 



BIT 19 IS A QUEUEING FLAG 


36 

UEVBLK 

EQU 

ENIT + 1 

PTR TO 4 WORD BLOCK 


37 

COUNT 

EQU 

OEVBLK+1 

COUNT OF WORDS IN RECORD 

-Y 

38 

P03I 

EQU 

COUNT+1 

RELATIVE LOCATION IN BUFFER 


39 

PFWORO 

EQU 

POSI+1 

CONTENTS OF PF1 

Y 

43 

FORMSKRU 

EQU 

PFWCRC 


* 

41 




BIT19 SEZ WAITING FOR 

r 

4 2 

. * 



OPERATOR TO READY DEVICE 

Y 

4 3 

* V 



BIT20 SEZ WANTS FORMS 


44 

« “** 



8IT21 SEZ HAS FORMS 

V 

45 

> * 



BIT22 SEZ TAKE FORMS OUT 

Y 

4 b 

. * 



BIT23 SEZ SAME AS 8IT22 BUT 

Y 

47 

* l 



DRIVER IS WAITING TO OUTPUT NEXT 


48 

9 *' 



FILE 

* 


o 





o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


PFWGRO+i 
IOENT+1 
URBEXITA+1 
UR8 EXI T + 1 

QI.MGLGC+1 

QPNT-+1 

QEMPTY+1 


STRTLGG+1 

URWORD+1 

QAQD+1 

NXPTR+1 

LXPTR+i 

CONTRGL+1 

IMTLOC+2 

RET ADD+ 1 


o 


BCD IDENT OF THE DEVICE * 
ENI BLOCK,XI * 
UJP IHPURE * 
ADDRESS TO GO TO WHEN FILES * 
ARE UNEQUIPPED * 
POINTER TO NXPTR AND LXPTR * 
ADDRESS TO TELL ORIVER THAT IT * 
HAS TO MORE FILES TO OUTPUT * 
ADDRESS TO TELL DRIVER TO START * 
FILE * 


ADDRSS OF WHERE TO JUMP ON THE * 
NEXT INTERRUPT * 
POINTER TO THE POPS TRANSFER Q * 
POINTER TO NEXT FILE TO PROCESS * 
POINTER TO LAST FILE TC PROCESS * 
HAS POPS CONTROL BYTE THAT * 
3EZ WE HAVE LP INFORMATION * 
ENI BLK-, Xi + CBI ENTER HERE WHEN * 
UJP INTERRUP POPS WANTS DATA * 
RETURN ADDRESS * 
If BITES ALLOW INTERRUPT REQUEST* 
COUNTER OF INTERRUPT R EQUESTS * 


CD 

O 

o 

o 

o 

o 

o 

o 

o 

o 

O' 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 










UNBLOCK BLOCK DEFINITIONS 


0 

CONBLOCK+1 

BFPTR+1 

BLKFOS+1 

IMAGR+1 

CALLBAO+2 

RDIST+2 

WCNT+i 

CBLQCK+1 

TIHAO+i 

PSALOC 

PSALOC+2 

EXITADD+i 

PFSAVE+1 

UWBWC+1 

uwewc+2 


UW8X3+1 

BAICHPNT+1 

DESTLP41 


UWMAX 


EXPOATA+1 
COM WORD41 
DEVTYPE+1 


POINTER TO 8 WORD CONTROL BLOCK * 
POINTER TO CURRENT CORE BUFFER * 
~G IF NO BUFFER PRESENT * 
CURRENT BLOCK POSITION * 
ADDRESS OF WORD COUNT AND IMAGE * 
CALL BACK ADDRESS * 
RTJ MACHERR * 
EMI BLOCK,CBI * 
UJP IMPURE * 
TEMPORARY WORD COUNT * 
ADDRESS Of CURRENT BLOCK * 
TEMPORARY FOR CURRENT POSITION * 
ADDRESS OF ASSOCIATED PSA * 
BUFFER UNSAFE FLAG * 
ENI SLOCK,CBI * 
UJP IMPURE RETURN ADDRESS * 
TEMP TO SAVE THE CONTENTS OF FF1* 
TEMP TO SAVE WC AND CALL SACK * 
ADDRESS If CALL TO UNBLOCKS * 
TEMP TO SAVE RETURN ADDRESS IF * 
CALL TO UW8LOCKS * 
BIT23 IF LAST RECORD WAS [LOGOFF* 
POINTER TO THE PROPER BATCH Q * 
DESTINATION LINE PRINTER CODE * 
HUMBER OF WORDS IN BLOCK * 


THE FOLLOWING ARE USED ONLY FOR * 
DEVICES THAT CONE FROM THE PDP8 * 
BIT23 SEZZ EXPECTING DATA * 
SITS 14— 0 HAVE 64 WORD BLOCK * 
ADDRESS * 
12 BIT BYTES WITH THE CONTROL * 
BLOCK INFORMATION * 
BITS 14 — 0 HAVE UWBLOCK ROUTINE * 
POINTER * 
NUMBER OF WORDS IN LONGER BLOCKS* 
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0 0 0 01 

3 7 

XI 

EQU 


0 00 0 2 

3 8 

X2 

EQU 


0 0 0 0 3 

3 3 

X3 

EQU 


0 00 00 

4 0 

CBI 

EQU 

0 


41 




0 00 0 0 

4 2 

IMPURE 

EQU 


U 0.0 0 0 

42+001 

SELECT 

EQU 



43 



o 

• 

44 


FCflOEF 



6 5 

. b 6 . 

6 7 

_ if if if if if if 

if ^ if ^ ^ if if 



■B * 


o 


.68 

' v 




■ 6 9 

* * 




70 

.* 



0 0 0 0 0 

71 

ACCHORD 

EQU 

o 

0 0 0 0 1 

72 

LP 

EQU 


0 0 0 0 2 

73 

COREP 

EQU 



74 

* * 




1 B 



n 

0 0003 

7 a 

cap 

EQU 

“w* 

0 0 0 04 

77 

GPP 

EQU 



7 8' 

* * 




79 

4*. 

© ■ 


o 


8 0: 

© nr 



81 

3 2 . .. 

.# v 

* ¥ ’ . . 




8 3 

* '*** 


o 


8 4 





•35 





8 6 





87 



O 

a o o o s 

88 
• Q Q 

3LKR 

•a ^ 

EQU 


0 0 0 0b 

9 0 

EPF. 

. EQU,.. . 



91 

« ¥ 


o 


92 

if- 

■ m ." 




9 3 

* * 




. 94 ... 

. * ■: 




a, h 

m 


o 


96 

«*■ 



0 8 0 0? 

97 

TFL. 

EQU 



% 5 . 


HTOEF 



:■ 2 03 

; ^ ^ ^ if if 

if if iff if if -np if 

0 

o a o o i 

■ . ' ' . 205 ■' 

* ' 

H TFILL - 

EQU 


. 00002 

. . .. 2.0 6- . 

... HT uP 

EQU 


. 0 0 0.03 

2 0 1 

HTPUN. 

EQU 

o 

0 0 0 (J 4 

2 iJ 6 . 

HTCR 

EQU 


0 000 5 

9 (| q 

HTMT 

EQU ■ 


QUO 06. 

. Ili .V. 

HTTT¥ 

EQU 

o 

0 3 0 G ? 

211 , 

HT PLOT 

EQU 

U 0 U i 0 

212 

HT NULL 

L. Q Ki 

0 0 011 

.213. . 

httv: 

EQU 


. a a 012 

. jSL.JL.H 

HI RAF 

.EQU 

o 

0 0 013 

215 

HTTAS.K 

EQU 

0 0 014 

216 

HI MSF. 

EQU 

0 0 015 

21? 

HTPTP 

EQU 

... 

0 0 0 i 6 

218 

HIM AX 

EQU. 


, , 0 001.7 

21.9 . 

HTMASK 

EQU 

o 


220 

221 

if 

m if if if if if - *S* if 

if. if" if 



46 


ACBLKOi 


00001 

22b 

LPREC 

£QU„ 

o 


227 

^ ¥ # & -7 -5? if ¥ 

if if ^ ^ if TT ^ 


228 




0 0 0 02 

229 

PUNREC 

EQU 


0 0 0 0 3 

230 

PLOTREC 

EQU 

o 

0 0 0 0*+ 

231 

PTPREC 

EQU 

0 00 05 

232 

UTLPREC 

EQU 


000 06 

233 

MSFTIME 

EQU 



234 

• * 


0 


235 

47 

# V V V V -V V T 

v nr v t v v v 


00533 P 

4 8 


ENTRY 

o 

00563 P 

49 


ENTRY 

0 Q 0 2 0 p 

50 


ENTRY 

00000 P 

51 


ENTRY 


00206 P 

5 2 


ENTRY 


o 


■ v -r 3 c rv vrrv 




FILE CONTROL BLOCK DEFINITIONS 


COREP+1 


ACCOUNTING WORD (MUST 8E OJ J 

LOAD POINT BLOCK < 

CORE POINTER IF NON-ZERO 

IF BIT23 = 1, CORE BLOCK HAS 

SEEN WRITTEN INTO 

BLOCK NUMBER OF THE CURRENT BL0C J 

CURRENT POSITION POINTER 

(REL. POSIT, WITHIN BLOCK GBP) J 

BIT23 SEZ READ-ONLY 

8IT22 SEZ AT LOAD POINT ’ 

BIT 21 SEZ END OF DATA 

BIT20 SEZ FILE HARK JUST READ 

J 

8IT18 SEZ BINARY RECORD PROCESS^ 

Bill? SEZ ABNORMAL/UNAVAILABLE J 

SI Tib SEZ ADDRESS ERROR 

0IT15 SEZ SAVED FILE 

NUMBER OF BLOCKS BEYOND J 

THE CURRENT BLOCK 

END POSITION POINTER 

31T22 SEZ THE FILL HAS CHANGED : 

BIT21 SEZ POSITIONER READY 

3IT20 SEZ DESTRUCTIVE READ 

FILE DIRECTORY 

HITS 15-18 CONTAIN THE HT 

BITS 30—iA CONTAIN END POSITION : 

TOTAL LENGTH IN BLOCKS < 


• 7 - * -7 7 - 7 7 •¥ -7 7 7 -7 - 


FILE 

LINE PRINTER 
CARD PUNCH 
CARD READER 
MAGNETIC TAPE 
TELETYPE 
X/Y PLOTTER 
ONlINE INCINERATOR 
CRT DISPLAY 
RANDOM ACCESS FILE 
future INPUT FOR REMOTE QAlCtt 
USER DISKPACK 
PAPER T&PF PUNCH 
VnUFTBR OF "HARDWARE TYPES) + 
MASK FOR THE HARDWARE TYPE 


. .ff ff Jf. ff if. .if. if. 3tf if. 3f if. if, if. if. if. .if if. if if. if if if if* 'V' •V' "5* if if if . 

NORMAL LINE PRINTER RECORDS * 

' if if if if if if if if if if if -if if ff if if if 2f 2f if if if 'if 2f ff 3f if 2f if if If Sf 


L PR.EG + i 

3 


PUNCH RECORDS * 
PLOTTER RECORDS * 
PAPER TAPE PUNCH RECORDS * 
200 UT LP RECORDS * 
SECONDS OF USER DISK PACK TIME * 


'• if if if if if if if if if if if if if if if if if if if if if if if if if if if if ic -v- if ^ 


HSI , SUP f HSI * STR 
H5T T,SUP j HS TT , SIR 
PDP 8 ® SIR 
POP S * SUP 
POP80S 












CD 

O 

o 

o 

o 

o 

o 

o 

o 

o 
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IFSTART 


88351 

P 

53 

J H 

ENTRY 

ENTRY 

HP:§SP 

00550 

P 

.55 

ENTRY 

TEK.STR 

0 0542 

P 

5 6 

ENTRY 

TEK .SUP 

0 0 5 41 

P 

57 

ENTRY 

UT.VSTR 

0 05 65 

P 

58 

ENTRY 

UT.SUP 



59 





60 

EXT 

BIT 18 



61 

EXT 

31 T19 



62 

EXT 

BI T 2 0 



63 

EXT 

BIT 22 



64 

. EXT 

BIT23 



6 5 

EXT 

3UILD8LK 



o 6 

EXT 

8UIL0CRQ 



67 

EXT 

8LDLPTAB 



67+001 

EXT 

CHAR 



67+002 

EXT 

CHARQUT 



67+0 0 3 

EXT 

010 



67+004 

EXT 

010 0 0 



67+005 

EXT 

QUMPLA8 



67+006 

EXT 

DUNPLA8L 



68 

EXT 

HARDWARE 



69 

EXT 

HDLENGTH 



■ 7 0 

EXT 

IFCCN 



71 

EXT 

IFINT 



: 72 

EXT 

INSTL 



7 <3 

EXT 

LINKIT 



74 

EXT 

HACHERR 



74+001 

EXT 

MAX DE-ST 



7 b 

EXT 

PDP8GTLX 



76 

EXT 

PSABLK 

.' . 


76+001 

EXT 

TERMINAL 



77 

EXT 

TTNUH 



78 

EXT 

TTYUNIT 



79 

EXT 

. URBLOKI 



8 0 

EXT 

UWBLQCK 



81 

EXT 

'UNBLOCKS 



82 

^ EXT 

UTLPINT : 


0 

CD 

O 

o 

o 

LABEL WORD IN DRIVER 

; V;7 ,. . O 

O 

: : O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 






a 
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> IF START 








q ir 


v 'r v v Pr v v v v v v v v -r v v 

V v V V V V V -|~ V V V -Y- T V T T V p|~ V V V V "TT V V V V V T V V V V V V V V T T 

-V 

CD 





o 

8 b 

* this 

SECTION STORES TE 

POP3 CONNECT CODE INTO THE DRIVER * 






87 

39 

■V 1 

v v v v v v r -/■ v v v -r v v v 

V V V V V V TV V V V V V V V T V 

V V V V V V TV V T *»' V V V V V V TV V V V V V V V TV V T V V V V V T V T V V TV 

o 

0 0 0 00 

01000000 



9 0 

POP3,SUP UJP 

IMPURE 



0 OUU1 

44077777 

X 


9 1 

SWA 

IFCGN 

SAVE THE CONNECT CODE IN THE DRIV 


a a o u 2 

44000134 

P 


91+001 

S W A 

IFCCNX 

INTO STARTUP ROUTINE 

o 

G G 0 Q 3 

12000014 



92 

SHA 

12 


0 00 04 

53700000 



9 3 

TA1 

X3 



0 0005 

17300007 



94 

AN I 

00007B,X3 

FORM ADDRESS INTO INST 


0 0 006 

12000006 



9 5 

SHA 

6 

FOR INTERRUPT OECGOIN6 

o 

0 0 0 0 7 

17600070 



9 6 

ANA 

000708 



0 0 010 

53740000 



97 

IAI 

X3 . 



0 00 11 

14’6 / 7 7 7 7 

“X 


93 

ENA 

i fin r 


o 

0 0 0 12 

44377/77 

X 


99' 

SW A 

INSTL ,X3 


0 0 0 13 

14677777 

X 


9 9 -r 0' 0 i 

ENA 

TTNUM 

GET THE HIGH TTY NUMBER 

0 0 014 

1 5 4 7 7 7 76 



99+002 

INA,S 

-1 

BACK UP BY ONE FOR OFFSET 


0 GO 15 

12 0 0 0 Q 17 



99+003 

SHA 

15 

UP TO THE TOP 9 BITS 


0 0 016 

40000205 

p 


99+004 

STA 

TERM 

SET INTO PSEUOO PSA ENTRY 

o 

0 0 017 

01000000 

p 


100 

101 

UJP 

POPS,SUP 

EXIT 


0 0 02 0 

01000000 



102 

103 

POPS* STR UJP 

IMPURE 


o 

0 0 0 21 

14100001 



104 

ENI 

1, XI 



0 0022 

20177777 

X 


105 

L DA 

PSABLK,Xi 

. DEVICE 1 IS NOT A TTY 


0 0 0 2 3 

35077777 

X 


106 

SSA 

81 F19 



0 0 024 

40100022 

X 


1G 7 

STA 

PSABLK» Xi 


o 

0 0025 

15100001 



103 

INI 

is X1 



0 00 26 

20100024 

X 


109 

LOA 

PSABLK,XI 



0 0027 

35000023 

X 


ii a 

SSA 

81T19 


o 

0 0 0 3 0 

40100026 

X 


11,1 

STA ■ 

PSABLK,XI 


0 0 0 31 

53020037 



1ii+001 

TMA 

378 

■ GET DATE REGISTER 

0 0 0 8 2 

1760 0037 



xi1+002 

ANA 

. . 3 78 . 

MASK TO HOUR 


0 0 033 

13 0 7 7/4 ? 



iil+00 3 

SHAQ 

”24 

DOWN TO Q 

o 

Q 0 0 34 

51077777 

X 


111+004 

OVA 

D10 ' . 

MAKE IT DIGITS 

0 0 Q 35 

32000152 

p 


111+005 

ADAQ 

. ASCII 

MAKE ASCII DIGITS 

0 0 036 

420:00707 

p 

9 0161 3 

ill+0 Q 6 

... SACH 

. HH . . 

. -INTO HOUR DIGIT 1 


0 0 037 

43000710 

p 

0 Oi 162 U 

111+007 

SQCH 

HH+ i 

INTO HOUR DIGIT 2 

o 

0 0 fl 4 Q 

58020022 



111+006 

TMA 

228 

TIME WORD 

0 0 041 

13077747 



111+009 

SHAQ 

~24 

DOWN TO G 


0 0 042 

51000154 

p 


111+010 

OVA ■ 

060006 

MAKE IT MINUTES 


0 0043 

13000030 



111+011 

.■SHAQ 

■24 ■ 

DOWN TO Q/Q TO AC 

-I o 

0 0 0 4 4 

46000052 

p 


i 11 4 01 2 

SCHA 

SSSA-VE ■ 

SAVE SECONDS 

0 0 045 

14600000 



111+ 013 

. ENA ' 

0 .. 

FOR DIVIDE 

0 0 046 

510 0 0 0 3 4 

. X:.'' 


11 i + 0 i 4 

OVA 

... . . D10.. 

. MAKE DIGITS 


0 0 047 

3 2 0 Q 0 15 2 

P 


lil+OiS 

ADAQ 

ASCII 

MAKE ASCII DIGITS 


0 0050 

42000 712 

p 

00162 2 

il1+016 

SACH 

MM 

MINUTES DIGIT 1 

o 

0 0 051 

43 0 0 0713 

p 

0 016 2 3 

111+01 7 

SQCH 

HM + i 

MINUTES DIGIT 2 


0 0052 

11000000 


o o o o a o 

111+0 IS 

S S S A V E E C H A 

IMPURE 

RESTORE SECONDS 


0 0 0 5 3 

18077747 



1.1.14 019 

SHAQ 

-24 

DOWN TO. Q 


U 0 054 

51077777 

X 


iii+ 02a 

OVA 

010 00 

MAKE SECONDS 

o 

0 0055 

13077747 



1.11+021 

SHAQ 

-24 

BACK DOWN TO Q 

0 0 0 56 

510 0 0046 

X 


111+022 

OVA 

01Q 

HAKE IT DIGITS 


0 0 057 

32000152 

p 


111+023 

. ADAQ 

ASCII 

MAKE ASCII DIGITS 

o 

0 0060 

42000715 

p 

. 00163 1 ■ 

lli+024 

SACH 

SS 

SECONDS DIGIT 1 

0 0 0 61 

43000716 

o 

t 

00163 2 

111+025 

SQCH 

SS + 1 

SECONDS DIGIT 2 

00062 

53020037 



11i+ 0 2 6 

TMA 

’ 3 7 8 

GET DATE AGAIN 


1)0 06 3 

13077742 



111+027 

SHAQ 

-24-5 

DAY OF MONTH 

o 

0 0 064 

17700037 



111+023 

ANQ 

378 

MASK TO 5 SITS 

00065 

51000056 

X 


111+Q29 

OVA 

O10 

MAKE IT DIGITS 

0 0 066 

32000152 

p 


111+030 

ADAQ 

ASCII 

MAKE ASCII DIGITS 


0 0 06 7 

42000721 

p 

00164 1 

111+031 

SACH 

OD 

DAY DIGIT 1 


00070 

43000722 

p 

00164 2 

.111+0 32 

SQCH 

0.0 + 1 

DAY DIGIT 2 

o 

0 0 071 

53020037 



111+033 

TMA 

378 

DATE AGAIN 

0 0 U 7 2 

12077765 



111+034 

SHA 

-5-5 

GET MONTH POSITION 


0 0 0 7 3 

17600017 



111+036 

ANA 

17 a 

MASK TO 4 BITS 

o 

0 0 074 

53500000 



111+036 

TAI 

XI 

FOR INDEXING TABLE OF MONTHS 

0 0 075 

2 010'O 17 0 

p 


111+037 

LDA 

MONTHS,XI 

GET PROPER IDENT FOR MONTH 

0 0 0 76 

40000165 

p 


111+038 

STA 

MO 

SAVE INTO MESSAGE 


0 0077 

58020037 



111+039 

TMA 

37 B 

LAST TIME 


0 010 0 

13077731 



111+040 

SHAQ 

-24-5-5-4 

DOWN TO Q 

o 

0 0101 

17700177 



111+041 

ANQ 

177 8 

MASK TO 7 BITS 

0 0102 

51000065 

X 


111+042 

OVA 

01 0 

MAKE DIGITS 


0 010 3 

32000162 

p 


111+043 

ADAQ 

ASCII 

MAKE ASCII DIGITS 


00104 

42000730 

p 

00166 0 

111+0 44 

SACH 

YY 

YEAR DIGIT 1 

o 

0 0105 

43000731 

p 

00166 1 

111+045 

SQCH 

YY + 1 

YEAR DIGIT 2 

0 0106 

14377777 

X 


111+046 

ENI 

TERMINAL,X3 

OFFSET FOR PSA POINTER 



o 
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0 Q1 0 7 
0 0110 

16377777 

15300205 

P 


111+047 

111+043 


Xpl 

I MI 

77777B,X3 
term »x 3 


MAK^ 11 RELATIVE TO PSA FAKERY 

OOlll 

14600215 



111+049 


ENA 

2150 


CARRIAGE RETURN 

00112 

00700143 

P 


111+050 


R T J 

CTO 


OUTPUT THE CHARACTER 

0 0113 

146 0 0 212 



111+051 


ENA 

2126 


OUTPUT THE CHARACTER 

0 0114 

00700143 

P 


111+052 


RTJ 

CTO 


0 0115 

14177720 



111+053 


ENI 

-NCHARS,XI 


NUMBER OF CHARACTER IN MESSAGE 

00116 

22400743 

P 

00170 3 

111+054 


LACH 

UPMES+NCHARS,XI 

GET A CHARACTER 

00117 

15600240 



111+055 


INA 

24 0 6 


MAKE ASCII 

0 0120 

00700143 

P 


111+056 


RTJ 

CTO 


OUTPUT IT 

0 0121 

02100116 

P 


111+057 


IJI 

*-3,XI 


LGOP TIL OUTPUT 

0 012 2 

14600215 



111+053 


ENA 

215 6 


CARRIAGE RETURN 

00123 

00700143 

P 


111+059 


RTJ 

CTO 


OUTPUT THE RETURN 

0 0124 

14600212 



111+060 


ENA 

212B 


LINE FEED 

0 0125 

00700143 

P 


1,11 + 061 


RTJ 

CTO 


NEW LINE NOW 

0 0126 

14677777 

X 


111+ 062 


ENA 

0UMPLA8L 


LABEL FOR OUMP INFO 

0 0127 

12000014 



111+063 


SHA 

12 


UP TO TOP 12 BITS 

0 013 0 

16600174 



111+064 


IMA 

2+62 


PLUS WORD COUNT 

00131 

40077777 

X 


111+065 


STA 

DU M PL A,3 


SAVE IN POPS DRIVER 

0 0132 

22000561 

p 

0 0134 1 

1 i1 + 0 o 6 


LACH 

IFCONX+1 


GET CHANNEL NUMBER 

00133 

77540000 



111+067 


ACI 



INTO CHANNEL INDEX REGISTER 

0 0134 

77000000 



111+066 

IFCQNX 

CON 

IMPURE,0 


CONNECT TO POPS 

00135 

14000000 



111+069 


HOP 

' 0 : . . ■ 


IGNORE REJECTS 

0 0136 

771016 0 Q 



111+070 


SEL 

1600a,SELECT 

SELECT INTERRUPT ENABLES 

0 0137 

14000000 



111+071 


NOP 

0 


IGNORE REJECTS 

0 0140 

01000020 

p 
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UJP 

PDP8.STR 



00141 

14100000 



JL .L «J 

113+001 

CTOX1 

ENI 

IMPURE »XI 


RESTORE IT 

0 0142 

14300000 



113+002 

GTQX3 

ENI 

IMPURE,X3 


AND X3 TOO 

0 0143 

QIOUOGOO 



113 + 0 0 3 

;gtq: 

UJP 

IMPURE. 


CHARACTER OUTPUT ROUTINE 

0 014 4 

44077777 

X 


113+004 


SWA 

/CHAR, lx 


SAVE THE CHARACTER INTO IFHNOLR 

0 0145 

471U0141 

p 


i 13 ■§ 0 Q 5 


STI 

C TOX1,Xi 


SAVE POINTER 

0 0146 

47300142 

p 


1.13+0 0 6 


STI 

GT-QX3 , X3 


SAVE X3 

0 0147 

1457777/ 



113+007 


E N Q i S 

-0 ■ 


TO SAY MONITOR INITIATED 

0 0150 

14200141 

p 


113+003 


...ENI. 

C TQ.X1-, X2. 


RETURN ADDRESS 

0 0151 

Q1U7777 7 

X 


1 13 + 003 

113+ 010 


UJP 

CHAROUT 


ANO OUTPUT THE CHARACTER 

00152 

00000020 



113+011 

ASCII 

VFD 

024/20,024/20 


00154 

0016 514 0 



113 + 012 
.113 + 013 

060000 

OEC 

60000 


FOR TIME UNPACK 

0 015 5 

12121212 



113+014 

UPMES 

ASCII,9 

12 * ******* 

OS-3 UP 

AT HHJMMJSS QD-MMM-YY ******* 


0 0 0 5 7 



113+015 

NCHARS 

EQU *C 

*-ClFMES-l 




0 0 707 

o 

. r. ..... 


113 + 01b 

HH 

equ,c 

UPMES+19 




0 0 712 

P 


113+017 

MM 

EQU ,€ 

UPMES*22 




0 0 715 

p 


113+018 

SS 

. EQU,€ .. 

UPMES+25 




a 0165 

' D 


1.1H 019 

■MO 

. ..■ cnn 

UPKES+8 




0 0 7 2 i 

p 


113+020 

BO 

EQU, C 

UPMES*29 j 




GU730 

p 


113+021 
113+022 

YY 

EQU-J.C 

U P M E S + 3 a 




0 0170 

P 


113+023 

MONTHS 

EQU 

*-1 



00171 

62415615 



113+024 


A.bCxIs .4... 

6 ,. J A N- r.EfcT- 

MAR-APR- 

MAY-JUN- 

0 0177 

52655415 



i 13+.02 5 
113+026 
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O 

0 0 2 0 6 

0100000U 


123 

PDP3Q3 

UJP 

IMPURE 

aUILO THE 10 QUEUES 

0 0207 

14300023 


124 


ENI 

DUMQL-1j X3 


0 02:10 

20301051 

P 

12 5 


L DA 

O U M Q Q , X 3 

IS ANY THING THERE 


0 02:11 

03100213 

P 

126 ' 


A Z J , N E 

- + 2 



0 0212 

0270 0210 

P 

127 


IJD 

*-2 t X3 

SAVE THE QUEUE LENGTH 

O 

00213 

47300231 

P 

12 6 


STI 

QQ04,X3 


0 0 214 

20301051 

P 

129 

QQ 02 

LDA 

OUMOQ 5 X3 

LOAD THE QUEUE POINTER 


0 0 215 

5360 0 0 Q Q 


13 0 


TAI 

X2 

POINTER TO X2 . 

O 

0 0216 

53100000 


131 


TIA 

Xi 

BUILD SEAL OUTPUT QUEUE 

0 0217 

40100000 


132. 


ST A 

0 , X1 

0 0 220 

15177776 


133 


INI 

■“.i . 5 . X1 



0 0 221 

04200000 


1.3 4 


ISE 

0 ,X2 


O 

0 0 222 

44200027 


135 


SWA 

QADDVX2 


00223 

02700214 

P 

136 


IJO 

QQ 0 2,X 3 

FORM FWA 

00224 

15100001 


137 


INI 

1 ■» X1 


0 0225 

25000317 

P 

136 


LDAQ 

BCDPOP8Q 

XPQP80Q/ 


0 0226 

00777777 

X . 

13 9 


RTJ 

LINKIT 


O 

0 0227 

25000321 

P 

140 


LDAQ 

BGOSOQL 

XPOFSOQLX 

0 0 230 

47100234 

P 

141 


STI 

*+4 »XI 

ENTER LENGTH OF OUTPUT QUEUE 


0 0 2 31 

14100000 


142 

QQ04 

ENI 

IMPURE,XI 

■ : : 0 

00232 

15100001 


143 


INI 

i,X± 


0 0 2 3 3 

00700226 

X 

144 


RTJ 

LINKIT 

RESTORE LOW MEMORY ADDRESS 

00234 

1410 00 0 0 


145 


ENI 

IMPURE,XI 


0 0235 

14300023 


146 


ENI 

DUMGL-1,X3 

LOOK FOR INPUT QUEUE ENTRIES 

0 

0 0236 

20301075 

p 

1 k- 


LDA 

DUKIQ,X3 

0 0 2 3 7 

03100242 

p 

148 


A Z J t Nfc. 

* + 3 



0 0 240 

02700236 

p 

149 


IJO 

—■ 2 , X 3 



0 0241 

14377776 


15 0 


ENI 

-i,X3 

SAVE THE QUEUE LENGTH 

0 

00242 

47300262 

p 

151 


STI 

Q Q 0 8 , X 3 

0 0243 

15300001 


152 


INI 

1 , X 3 


0 0 244 

Q 1000253 

p 

153 

154 

155 


UJP . ■ 

QQ07 



0 0 245 

20301075 

p 

QQ06 

LDA 

DUMXQ * X3 

LOAD THE ENTRY 

0 

0 02 46 

35000334 

p 

156 


SSA 

UJP 0 0 

SET IN A UJP INSTRUCTION 

0 0247 

05600001 


157 


ASG 

1 

SKIP If REALLY AN ADDRESS 


0 0250 

35C 7777? 

X 

158 


SSA 

BIT 23 

SET NOT PRESENT 3IT 

0 

0 0 251 

15177776 


15 9 


INI 

-1 , X1 


00252 

40100000 


1:6 a 


ST A 

G, X1 


0 0 2 5 3 

027(102 4 5 

p 

161 

' QQ0 : 7 

IJO- . 

QQG6,X3 

FIRST'S ENTRIES ARE IN IFHNOLR 


00254 

15100003 


162 


1. NI 

$ , X1 


0 0 255 

47100265 

p 

163 


STI - 

QQG9,Xi 


O 

0 0 25 6 

15177774 


16 4 


INI 

-3, XI 


0 0 257 

25 0 0 032 3. 

p 

16 5 . 


LDAQ 

BCDPOP8I 

. -/PDFc.IQX 


0 026 0 

00700233 

X 

166 


RTJ 

LINKIT 


O 

0 0261 

25000325 

p 

1 O ) 


LDAQ. 

8CD8IQL 

7f DP&IQL.f 

00262 

1410OQ00 


A 6:8 

QQ08 

EMI . • 

IMPURE,XI 


0 0263 

1610 0 0 tl 3 


169 


■ INI 

3, XI 



0 02 6 4 

007*00260 

V 

■A 

17 0 


RTJ 

LINKIT 


0 

0 0265 

14100000 


17.1 

172 

173 

QQ0 9 

ENI 

IMPURE,XI 


0 0 266 

14300023 



ENI... 

OUMQL-l.,X3 

CHECK THE CONTROL QUEUE 


0 0267 

20301121 


174 


LDA 

DUMCQ,X 3 

FIND LENGTH OF THE QUEUE 

; O 

0 0 2 7 0 

03100273 

P 

175 


AZJ,NE 

* + 3 - 


0 0271 

02700267 

P 

176 


IJO 

*-2,X3 


0 0272 

14377776 


177 


ENT 

- 1 , X 3 



00273 

15300001 


17 8 


INI 

1 , X 3 

SAVE THE QUEUE LENGTH 

0 

0 0 274 

47300313 

P 

179 


STI 

QQ12,X3 

00275 

01000306 

■P 

18.0 


UJP 

QQli 

LOAD THE CONTROL BLOCK 

0 02 76 

20301121 

P 

181 

QQ10 

LDA 

DUMCQ,X3 


0 0277 

53600000 


182 


TAI 

X2 


’ , O 

0 0 3 0 0 

15600033 


183 


INA 

INTLQC 


0 0 3 01 

35000334 

P 

134 


SSA 

UJP00 

JUMP IF REALLY AN ADDRESS 

00 3 02 

05200001 


135 


IS6 

1 , X 2 


0 0303 

20000333 

P 

13 6 


LDA 

UJPGX2 

OTHERWISE IGNORE THE CCNROL BYTE 

O 

0 0 304 

15177776 


187 


INI 

-1, X1 


0 0305 

40100000 


188 


STA 

0 ,X1 

■ . ■ ■ 

0 0306 

02700276 

P 

18 9 

QQli 

I JD 

QQ10,X 3 



0 0 307 

25 U 0 032 7 

P 

19 0 


LDAQ 

BCD PDF8C 

XPDP8CQX 

O 

0 0310 

0 0 7 0 U 264 

X 

191 


RTJ 

LINKIT 


0 0311 

25000331 

p 

19 2 


LDAQ 

BCD 8CQL 

XP0F8CQL* 

0 0 312 

47100315 

p 

193 


STI 

* + 3 ,X1 




O 
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47244710 
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47244710 
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BC0PDP8G 

BCD 

2,PDP8CQ 


0 0 331 

47244710 


205 

BCD8CQL 

BCD 

2 , PDP8CQL 
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0 0 333 

01200000 
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0 , X 2 
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01000000 
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215 
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00335 

54100352 

P 

219 

PTPEXIT 

LCI 

PTPXI,XI 


0 0 3 36 

OiUOOO U a 


220. 

PTP.SUP 

UJP 

IMPURE 


0 0 337 

40000702 

P 

221 


STA 

TEMP 

O 

0 0 340 

47100352 

P 

222 


SIX 

PTPXI,XI 


0 0341 

14177777 

X 

22 3 


ENI 

HOLENGTHjXl 


0 0 342 

14600015 


2.24 


ENA 

HTPTP 


0 0 343 

14700017 


225 


ENQ 

HTMASK 

o 

0 0 34 4 

13000017 


22 b 


SHAQ 

15 


00345 

06277777 

X 

227 


HEQ 

HARDWARE,2 


0 0 346 

01000335 

p 

22 6 


UJP 

PTPEXIT 


0 Q 347 

20100345 

X 

229 


LD A 

HARDWARE,Xi 

o 

0 0350 

17477776 


230 


ANA ? S 

77776B 

0 0 351 

40100347 

X 

231 


STA 

HARDWARE,XI 


. 00352 

14100000 


232 

PTPXi 

ENI 

IMPURE , XI. 


0 0 353 

240 77777 

X 

232+001 


L C A 

BIT 22 

o 

0 0 354 

37000715 

p 

232+002 


LP A 

UTLPMAC+ENIT 

0 0 355 

40000715 

p 

232+003 


STA 

UTLPMAC +ENIT 


0 0 3 *5 6 

20000570 

p 

23 3 


LOA 

8C0PTP 


1 00557 

00 700643 

p 

234 


RTJ 

MAKEUTLP 

o 

0 0360 

15100001 


235 


v INI 

1,X1+€BI 

00361 

14600076 


236 


ENA 

62 


0 0 362 

40100006 


23? 


STA 

LNIH,Xl+CBI 


0 0 363 

25000371 

p 

23 6 


LDAQ 

BCDPTP8 

v~) 

0 0364 

00700314 

X 

239 


RTJ 

LINKIT 


0 0 365 

20000250 

X 

24 0 


LOS 

BIT 23 . 


0 0 365 

34100012 


241 


RAO 

ENIT,Xi+GBI 


Li 0 3 6 7 

02500336 

p 

242 


IJD 

PTP.SUP.,X1 + C 

o 

0 0 370 

47 63476 2 


243 

244 

BCDFTP 

BCD 

; i, pip 


0 0 3 71 

47634722 


2.4 5 

acopTpa 

BCD , 

2i PTPBLQC 





246 




0 

0 03 73 

01300000 


24 7 

PTP® SIR 

UJP 

IMPURE 

0 0374 

01000373 

p 
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o 

o 
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o 

o 
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MAX RECORD SIZE FOR THE PUNCH IS 
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THE FOLLOWING START UP ROUTINE SETS UP THE LUNLIST, * 





25 3 

V 
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O 

U Li 3 75 

01000000 


2 t?8 

HSI.SUP 

UJP 

IMPURE 


0 0 3 7 6 

40000702 

P 

25 9 


ST A 

TEMP 

SAVE CONTROL INFORMATION 

0 0 377 

00700742 

P 

26 0 


RTJ 

CR8UILO 

8 UILO A CR MACRO 


0 0 400 

15100001 


261 


INI 

i,xi 

ADVANCE FOR BUILDCRQ 

o 

0 0401 

14700000 


2 S2 


ENQ 

0 

SAY NOT REAL CARD READER 

00402 

00777777 

X 

26 3 


RTJ 

BUILDCRQ 

BUILD INPUT QUEUE 

0 0 4 0 3 

14677777 

X 

2-64 


ENA 

UNBLOCK 

PROPER BLOCKING ROUTINE 


0 0404 

4410002b 


265 


SWA 

OEVIYP£,Xi 

SET PROPER BLOCKING ROUTINE 

o 

0 0^05 

14200007 


2 6 6 


ENI 

FCBL-1,X2 

MOVE A CONTROL BLOCK. 

0 0 4 U 6 

2 0 2 0 1 1 ) 3 6 

p 

287 


LOA 

FOB ■» X2 

GET A WORD 

0 0407 

40177776 


Ph H 

- W ■ 


ST A 

-ifXi 

PUT INTO FREE STORAGE 


00410 

15177776 


26 9 


INI 

-i,XI 

DOWN A WORD 

; O 

00411 

02600406 

p 

2 7 0 


1 JO 

*-3 ,X2 

LOOP TIL DONE 

0 0412 

1467777? 

X 

27 G-J-OGi 


ENA 

MAXQEST 

MAX DESTINATION NON MACRO PNTR 

00413 

4410 0 0 0 b 


270+002 


SWA 

EPP»Xi 

INTO CONTROL BLOCK 


0 0 414 

53100000 


271 


TIA 

Xi 

POINTER 


0 0 415 

40100010 


272 


ST A 

CON BLOCK+FCBL,XI 

PUT IT AWAY 

o 

0 0416 

20000702 

p 

273 


LOA 

TEMP 

GET CONTROL INFO 

00417 

37000531 

p 

274 


L PA 

TER MASK 

EXTRACT TERMINAL NUMBER 


0 0 420 

13000030 


275 


SHAQ 

24 

SAVE IN Q 


00421 

53100000 


276 


TIA 

Xi 

ADDRESS OF CONTROL BLOCK 

o 

0 0422 

5 3 0 4 00 0 0 


27? 


AQA 


ADD TOGETHER TO FORM LUNLIST WORD 

0 04 23 

15177775 


27 6 


INI 

- 2 .XI . 

GRAB TWO WORDS FOR LUNLIST ELEMEN 


00424 

40100001 


27 9 


ST A 

i»XI 

AMD SET INTO SECOND WORD' 


0 0425 

14&0Q002 


28 0 


ENA . 

2 

2 WORDS PER HSI ENTRY 

o 

0 0426 

3 4 0 0 Q 4 6 2 

p 

281 


RAD 

HSICOUNT 

AND COUNT IT 

0 0427 

543U0461 

p 

282 


L01 

HSIPTR ,.X3 

POINTER TO LAST HSI ENTRY 


00430 

01000433 

p 

28 3 


UJP 

HSILOOK 

GO LOOK FOR IT IN LIST 


0 0431 

20300002 


284 

HSILOOP 

LuA 

■ o y ** 

■ u f A ■ 

GET ADDRESS OF NEXT ELEMENT 

o 

0 0432 

53700003 


2 8 5 


T'Al 

; X3 

AND RE POINT X3 


00433 

p 

266 

HSILOOK 

E'QU 




0 043 3 

05300001 


26 7 


I -4 & 

1, X3 ■ 

SKIP IF A POINTER EXISTS 


0 0434 

01000441 

p 

.28 8 ■ 


UJP 

HSINOT 

THEN NOT THERE 

o 

0 3435 

20000531 

p 

269 


LOA 

TERMASK 

GET TERMINAL'NUMBER MASK 

0 0 436 

3730 00 01 


29 0 


LPA 

. 1 ■$ X <3 ■ 

EXTRACT TERMINAL NUMBER 


0 0437 

03400453 

p 

291 


AQJfEQ 

HSIFOUNO 

JUMP IF MATCH 


0 0 440 

01000431 

p 

292 


UJP 

HSILOOP 

LOOP TIL FOUND OR END 

o 


0 0 441 

p 

'■■293' . 

HSIHOT 

EQU . 



0 0441 

14600145 


2 94 ... 


ENA . 

iai 

DEFAULT LOWER LUN 


0 0442 

12000017 


295 


SHA 

P 1$.** 9 

TO PROPER POSITION • 


0 04h3' 

156777 11 

X 

296 


IMA 

TT.YUNIT 

POINT TO TTY LUNLIST 

o 

0 0 444 

40100000 


29? 

HSIPUT 

STA 

0 » X 1 

. AND SAVE. INTO LUNLIST ELEMENT 


0 0 445 

20000461 

p , 

298 


LOA 

: HSIPTR 

GET POINTER TO THIS 


0 0 446 

44103002 


299 


SWA 

2 .X 1 

POINT THIS ONE TO LAST ONE 


Q 0447 

47100461 

jp 

30 0 


ST I 

HSIPTR,Xi 

TEMP 

AND SAVE POINTER TO THIS ONE 


0 0450 

20000702 

p 

301 


L D'A 

GET CONTROL INFO 

0 0 451 

03300461 

p 

332 .. 


A2Jj.LT 

HSIALLOC 

JUMP If LAST ENTRY 



0 0 452 

p 

30 3 

HSIEXIT 

EQU 

•I*' 



0 0 452 

02500375 

p 

3 0 4 


r in 

JJ W U 

HSI.SUP,XI 

AND RETURN 

o 

0 0453 

21300000 


38 5 

'HSIFOUNO 

IOQ 

0 , X3 

GET THIS ENTRY 

U 0 4 5 4 

53300000 


. 30 6 


TIA, 

X3 

AND THE ADDRESS 


0 0455 

13000011 


-.30 7 


SHAQ 

9 

PUT TOGETHER 


0 0456 

15600001 


30 8 


IN A 

1' 

NEXT LUN 


0 0 457 

120 Q 0 U17 


■309 


'SHA 

7 -24~9':. : 

AND SET PROPER ORDER 

0 0 460 

01000444 

p 

310 


UJP 

HSIPUT 

AND PUT AWAY 



o 


o 

o 

o 

o 
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IFSTART 





6 i 6 

314 

V V V V V V V V V *4 

V V V V V 

V V V V V V V V T V V V V V V v v-r V V V V 


CD 




v> 

THE FGLLG11ING ROUTINE WILL SET UP /HSITA32, THE 

-r 





315 

.- -v- '■ 

TABLE 

USED FOR FINDING WHEN A 

TERMINAL IS A HSI 

■v 





316 

“V* 

USER 

AND HOW TO CHARGE, WHEN 

TO RESET ACCOUNTING 


CD 




317 

V 

inf a. 

ETC * 


•V- 





318 





* 





319 

't- 

IT IS 

BUILT UP FROM FEMDPOINT* IN CONTIGUOUS 

¥ 





320 

r 

GROUPS OF TWO WORDS ( TWO FOR 

EACH HSI DEVICE ), 

V 

O 




321 

Rr 




n? 





V 'f- V V V V V -v> -a* V V V V V V 

■v- -«* -v- Af* v v *•- -■>» -»« -ir Pr -v- -v* ■ i r A' /' vv 

V V T V ^ V T V V ^ V ¥ V A* V V V V T V T V V V **• V A* ^ V 




, 0 0461 

P 

32 3 

324 

HSIALLOC 

EQU 

V 



: v 0 

0 0 461 

14200000 


325 

HS.IPTR 

ENI 

IMPURE,X2 

POINTER TO LAST HSI SLOCK 


00462- 

14600000 


3 2 6 

H SIC Oil NT 

ENA 

IMPURE 

GET COUNT OF HSI DEVICES 



0 0 463 

16477777 


32 7 


XOftsS 

-0 

NEGATE IT 



00464 

53540000 


328 


i a i 

XI 

SUBTRACT FROM INDEX 


O 

0 0 465 

47100514 

P 

329 


STi 

HSITABP,XI 

SAVE FOR LINKING 



0 0466 

P 

330 

HSISLOGP 

EQU 





U IJ 466 

21000531 

P 

3 31 


LOG 

TERNASK 

GET MASK 



0 0 467 

2/200001 


3 3 2 


LOL 

1 , X 2 

GET THIS TERMINAL NUMBER 


O 

0 0 4 7 0 

12077776 


38 3 


SHA 

-1 

MAKE TERMINAL IN UPPER 9 SITS 


0 0471 

40100000 


334 


STA 

a, xi 

AND PUT INTO THIS ENTRY 



0 0472 

53200000 


335 


TIA 

X 2 

ADDRESS TO LUNLI5T ELEMENT 



0 0473 

44100Q00 


3 3b 


SWA 

0 , XI 

PUT INTO TABLE ENTRY 


o 

0 0 474 

15600025 


38 7 


INA 

2+FCBL+PSALOC 

ADVANCE TO PSA LOCATION POINTER 
SET PSA POINTER TO TABLE 


0 0475 

40100001 


338 


S I A 

1,X1 . 



0 0476 

14700000 


339 


ENQ 

a 

TO RESET POINTER 



0 0477 

24000531 

P 

340 


LG A 

TERMASK 

MASK 


o 

00500 

37200001 


341 


LPA 

1*X2 

THROW AWAY TERMINAL NUMBER 


0 05 01 

35000532 

P 

34 2 


SSA 

GRTYPE 

AND MAKE IT A CARO READER 



0 0502 

40200001 


343 


STA 

1 » X 2 

PUT BACK INTO CGRE 



0 05 03 

20200002 


344 


LOA 

2 , X 2 

GET POINTER TO NEXT BLOCK 


o 

0 05 04 

41200002 


345 


STQ 

2,X2 

RESET THIS BLOCK 


00505 

53600000 


34b . 


TAX 

X2 

AND CHAIN TO IT 



0 0506 

15100002 


347 


INI 

2, XI 

NEXT ENTRY 



00507 

04200000 


346 


ISE 

0 , X.2 ■ 

SKIP IF END OF LOOP 


o 

0 0 510 

01000465 

P 

3 4 9 


UJP 

HSISLOOP 

LOOP TIL DONE 


0 0511 

54.10 0462 

P 

- 350, 


LDI 

HSICOUNT,XI 

FOR LINKING SIZE OF TABLE 



0 0512 

25000527 

P 

351 


L. D A Q. 

BHSITABL 

LENGTH OF TABLE SYMBOL 



00513 

00700364 

X 

352 


RTJ 

LINKIT 

LINK UP THE SYMBGL 


o 

0 0514 

14100000 


353 

HSITA8P 

ENI 

IMPURE,XI 

GET LINKING POINTER 


0 0515 

25000523 

p 

354 


LUAQ 

8 HSJTAB 

NAME OF TABLE 



0 0516 

00700513 

X 

35.5' 


RTJ 

LINKIT 

AND LINK IT UP TOO 



0 0517 

15100001 


'' 3-5 6 


INI 

1 , X1 

PSA LOC POINTER SYMBOL 


o 

0 0520 

25 0 0 05.25 

p 

357 ■ 


LDAG 

BHSILOC 

NAME OF ENTRY 


00521 

0 070 051(3 

X . 

358 


RTJ . 

LIN KIT 

AND' LINK IT TOO 



00522 

02500452 

p 

359 


IJO 

HSIEXITvXl 

RETURN AND DECRIMENT TWICE 






3 6 6 






o 

0 052 3 

30623163 


381 

8HSITA8- 

OGO 

2 , H SIT A 8 

NAME OF TABLE 


0 0525 

30623143 


' 3.62 

6HSIL0C 

SCO 

2» HSILOC 

PSA POINTER 

LENGTH OF TABLE 



00527 

30623163 


363 

364 

8 HSITASL 

SGD 

2,HSIT ABL 




0 05 31 

37600000 


"365 

TERMASK 

VFO 

01/0,07/177,016/0 



0 05 32 

0 0 40 00 0 0 


366 

367 

GRTYPE 

vfo 

A9/HTCR,015/00000 

A CARO READER ENTRY 



0 0533 

01000000 


3 6 8 

38 9 

HSI.STR 

UJP 

IMPURE 



o 

00534 

01000533 

p 

370. 


UJP 

HSI.STR 

RETURN WITHOUT DOING A THING 




o 


o 

o 

o 

o 

o 









0 


ASSEMBLER/(JS3 VI- 0 09/21/7 4 2217 PAGE 

37 2 

37A 
37 5 
3 7 6 
37 7 



00535 

P 

379 

330 

fj 05 35 

20077777 

X 

381 

0 0 536 

3530 00 3 U 

X 

38 2 

0 0537 

40300536 

X 

383 

0 0 540 

20QUQ353 

X 

384 

0 0 5-41 

40301052 

p 

38 5 

0 0542 

0100000Q 


386 

0 0 5 43 

17600077 


387 

0 0 544 

53700000 


388 

0 0545 

05300013 

X 

3 8 9 

0 0 5 46 

01000535 

p 

39 0 

J 0 547 

0UQ00547 

p 

391 

0 055 0 

01000000 


■ 392 

393 

0 0 551 

01000550 

p ' - 

394 


00552 

p 

39 5 

897 
398 
3 99 

40 0 

402 

403 

0 0 552 

20077777 

X 

40 4 

0 0 553 

35300537 

X 

40 5. 

0 0 5 54 

40300553 

X 

40 6 

0 0555 

01000000 


407 

00556 

17600077 


40 8 

0 0557 

537 0 Oil 0 0- 


409 

0 0560 

05300545 

X ■ . 

410 

0 0561 

01000552 

p 

411 

00562 

00000562 

p 

412 

0 0 56 3 

01009000 


414 

0 0564 

010011563 

p 

415 


13 IFSTART 


' -r v v v v v v v v v v 


V v V * 


i» v V v - 


^■vv v-r v vvv v v v v v v v v v v ^ v v '!• v v v v v t -y- Y -Y' -r t -v- v -f 

if 




THIS SECTION SETS THE BIT IN PSABLK' THAT SAYS THAT 
A TERMINAL HAS BLOCKED OUTPUT 


"V -V* -v -«* V V - 4 - -4- T* 1“ -V *4* -4- • 


-r v v v v v v v v v it v r 'r v ^ 


TEK02 

EQU 

V 


LOA 

BIT 20 


SSA ' 

PSABLK,X3 


STA 

PSABLK,X3 


LDA 

BIT22 


STA 

DUMOQ+1 , X3 

TEK.SUP 

UJP 

IMPURE 


AHA 

778 


TAI 

X3 


ISG 

TTNUM,X3 


UJP 

TEK02 


HLT 

if 

TEK.STR 

UJP 

IMPURE 


UJP 

TEK.STR . 


* 
if 

SET THE BLOCKED OUTPUT BIT 
REMEMBER TO EXPAND THE OUTPUT Q 

MUX CHANNEL TO X3 
SKIP IF OUT OF RANGE 


if 4“ V if V- if if if 'f if if if 


~ifififif if if^f if-ififif if Sf if. 1 


» if if Jf, sf 4£ 3$ if if. if if if if if if if if if 2f3f Jf if if if. 'if 


' f 


THE FOLLOWING SECTION SETS THE HIGH SPEED TTY BIT INTO 
THE.CORRESPONDING PSABLK ENTRY, 


1 4 *■*•*•*■¥ ■! 


•>; if if if if - -if if' if if -if if if' if •" 


* if ‘if ‘ 


* if v if y ^ if if if- if r ^ if if if- if if •■$?• 4r f -f- f if -f if f f -f 


HSITOl EQU * 

LDA .BIT18 

SSA PSABLK,X3 

STA PSABLK,X3 

HSTT.SUP UUP IMPURE 

ANA 773 

ISG T.TNUM*X3' 

UJP HSITOl 

KLT r ~ 


SET NO LIMIT BIT ON TTY CHARS IMP 
OR 2T INTC THE ENTRY 
AND RESTORE IT TO THE PSABLK 
ENTRY POINT 

MASK TO TERMINAL NUMBER 

PUT I NT 0 INDEX FOR INDEXING- PSABL 

IS IT OUT OF RANGE 

HQ SO DO IT 

GUT OF RANGE, STUPID,,,, 


HSTT* STR UJP IMPURE ENTRY POINT 

UJP HSTT.STK AND RETURN WITHOUT DOING A THING 


0 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

0 

o 

o 

o 

o 

o 

o 
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IF START 



a 

cp 

0 0565 

OlOUQGOO 


417 

UT .SUP 

UJP 

IMPURE 

POPS CHANNEL NUMBER TO X3 

CD 


, a 0 566 

53700000 


418 


TAI 

X3 



0 0557 

17300077 


419 


A NI 

7 7 8 » X 3 




0 0 5 7 0 

40000702 

P 

420 


3TA 

TEMP 

SAVE FOR LATER 


3 

0 0 5 71 

20000027 

A 

421 


LOA 

BIT-19 

TELL THE WORLD THE DEVICE IS NOT 

CD 

0 0 5 7 2 

35300564 

X 

42 2 


S3 A 

PSABLKiX3 

A TELETYPE 


0 0 573 

40300572 

X 

423 


ST A 

PSABLK,X3 




00574 

20000540 

X 

423+001 


L D A 

BIT22 



(1 

0 0 575 

35000715 

p 

423+002 


3SA 

UTLPMAC.+ENIT 


. 


00576 

40000715 

p 

42 3 + 0 0.3 


ST A 

UTLPMAC+ENIT 

NO FORMS FOR THIS DEVICE 



0 0 577 

14600001 


4 Z 4 


ENA 

1 

COUNT UP THE UT NUMBER 



0 0600 

3G000701 

p 

42 5 


ADA 

BCDU'T 



G 

0 060 1 

40000701 

p 

426 


STA 

BCOUT 


o 

0 0 6 0 2 

00700643 

p 

427 


RTJ 

MAKEUTLP 

MAKE THE LINE PRINTER BLOCK 

\Jr 


0 060 3 

14200002 

\ 

428 

UTNUMB 

£ N1 

2+IMPURE,X2 

UT LPZS START AT 2 



0 0604 

5 310 0 0 0 0 


429 


TIA 

XI 

BLOCK ADDRESS TO A 


O 

0 Q 6 0 5 

15600001 


4 0 


IN A 

i 


: O 

0 0 6 0 8 

35000640 

p 

481 


SS A 

LPTABXX 

SET IN WHICH ACCOUNTING WORD 


0 0 6 0 7 

00777777 

X 

4 3 2 


RTJ 

8L0LPTAB 

BUILD THE LINE PRINT TABLE 



0 0610 

15200001 


433 


INI 

1 »X2 

INCREMENT THE COUNTER 


o 

0 0 6:11 

47200603 

p 

434 


3TI 

UTNUMB,X2 


O 


0 0 612 

20000702 

p 

435 


LOA 

TEMP 



0 0613 

12077771 


438 


SHA 

-8 " 

EXTRACT THE CONTROL BYTE 



0 0614 

17600037 


437 


ANA 

37ii 



o 

0 0 615 

15 6 040 GO 


43 8 


IN A 

40008 ' 

SAVE FOR INFORMING THE POPS THAT 

O 

0 0616 

44100033 


439 


SWA 

CDNTRGL+1,Xl+CBI 

HE HAVE DATA FOR IT 


0 0617 

00700742 

p 

44 0 


RTJ 

CR8UIL0 ' 

BUILD THE CARD READER BLOCK 



0 0620 

15100001 


441 


I NI 

1,X1 



o 

0 0621 

14600001 


442 


ENA 

1 


o 


0 0622 

34100025 


■H4 3 


RAD 

G0MW0R0,X1+C8I 



00623 

14677777 

X 

444 


ENA 

UHBLOCKB 

SET THE PROPER BLOCKING ROUTINE 



0 0 624 

441G 0 0 2 6 


445 


SHA 

OEVTYPEjXl 



o 

00625 

20000603 

p 

445+001 


LDA 

UTNUMB 

POINTER TO NEXT ENTRY IN LPTAB 

■ ■ o 

0 0626 

17600077 


4 4 5+0 02 


ANA 

■ 11 B 

MASK TO 6 BITS 


0 0627 

15477775 


445+803 


INA,S 

-2 

BACK UP TO LAST USED ENTRY 



0 063 0 

12077776 


44 5 + 0 0 4 


SHA 

* 1' . 

CAUSE IT IS ONE - NOT TWO - WORDS 


o 

0 0 6 81 

44100023 


445+005 


SWA ■ 

OESTLP,X1+C8I 

AND STORE INTO MACRO TABLE 

o 


0 06 32 

21000702 

p 

446 


LDQ 

. - TEMP .. 

LOAD NUMBER OF TIMES TO MULTI PRO 


0 0 6 3 3 

.1247 7752 


447 


SHQ 

. '-.21.. 




0 0 634 

17700007 


448 


ANQ. 

7 . 



o 

0 0 635 

00700402 

X 

449 


RTJ 

SUILQCRQ 

BUILD THE INPUT Q 

o 

0 0636 

1517777b 


45 0 


INI . 

-i,Xl 



0 0637 

01000565 

p 

451 

/, f~ O ' 


UJP 

, UT.SUP 



o 

0 0640 

0 0 5 0 0 0 0 ii 


*4 

45 3' • 

454 

.455 

LPTA8XX 

VFD 

A 9/UTL PREC,015/00 00 

0 






4 5 6 






0 

0 0 641 

01000000 


457 

UT.3T.R 

UJP 

IMPURE 


o 

0 0642 

01000641 

p 

45 8 


UJP 

UT. STR 


o 









o 

o 









o 

o 









o 

o 









o 

o 








. !. ; . . - 

o 

o 









o 

of 

/. ■ ■ 








o 

o 









o 
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PAG 

CD 

0 0643 

■01000000 


460 


U IJ644 

40000722 

P 

461 


LI 0 6 4 5 

14200036 


46 2 

a 

G 064b 

20200703 

P 

463 

0 0 647 

4 0 10 00 0 0 


464 

0 0650 

15177776 


465 


00651 

02600646 

P 

466 

° 

0 0 6 5 2 

15100001 


46 7 




468 

0 u 65 3 

53100000 


469 


U 0 654 

44100010 


470 

o 

0 0 655 

44100020 


471 

0 0656 

4410 DO33 


472 

0 0657 

54300702 

P 

473 


0 0660 

17300077 


474 

o 

0 0661 

40301121 

P 

475 

0 0662 

20000702 

P 

47 & 

0 066 3 

12077757 


477 


0 0 664 

1760003? 


4 76 

0 '! 

0 0 665 

53700000 


479 

0 Q 666 

53100000 


48 0 

0 0 6 b 7 

35000365 

X 

481 

■ ' 

0 0670 

40301051 

P 

48 2 

o 

0 0 671 

15600007 


■ 483 

0 0 672 

44100007 


484 

00673 

15400021 


465 


0 0674 

44100031 


4 3 6 


0 06 75 

44100023 


48 7 

o :■ 

00676 

00777777 

X 

46 6 

0 0 677 

15177776 


489 


0 0 7 0 0 

01000643. 

p 

490 

o 




491 

0 0 7 01. 

6463 6 0 0:0 


492 

493 


0 07 02 

u a a o q 0 : a ij 


494 


o 


o 

o 

o 


15 IF START 


HAKEUTLP 

UJP 

IMPURE 


Si A 
£ NI 

UTLPMAC+IDENT 

UTLPMACL-i,X2 


LD A 

UTLPMACYX2 


ST A 

0, XI 


INI 

-1,X1 


IJD 

”•-3 j X2 


IN I 

1,X1 


TIA 

XI 


S VIA 

ENA0,X1 


SWA 

URBEXIT A » XI 


SWA 

INTLGC >X1 


LDI 

TEMP ,X3 


AN I 

77B,X3 


STA 

DUMCQ,X3 


LOA 

TEMP 


SH A 

-6-5-5 


ANA 

378 


TAX 

X 3 


TIA 

XI 


SS A 

8 IT 23 


STA 

- DUMOQt X3 


INA 

KILLFLAG 
KILLFLAG? XI 


SWA 


IN A f S 

-XILLFLAG+NXPTR 


SWA 

LXPTRj XI ' 


SWA 

QPNT.Xl 


RTJ 

8UIL06LK 


INI 

— If XI 


UJP 

HAKEUTLP 

SCOUT 

BCD 

i»UT00 

TEMP 

. ¥FO 

. A24;/IMPURE 


O 

O 

O 

o 

o 

o 

o 

o 


MOVE THE MACRO INTO FREE STORAGE 

PLUG THE El'll INSTRUCTIONS 

LOAD THE POPS MUX NUMBER 

REMEMBER TO EXPAND THE CONTROL Q 
GET THE OUTPUT QUEUE LABEL 

MACRO ADDRESS BACK TO A 
REMEMBER WHERE THE MACRO IS 

SET UP THE QUEUEING WORDS 

BUILD MQVE8UFF Q INFORMATION 
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IFSTART 



0 0 7 G 3 

P 

49 6 

UTLPMAC 

Ecm 


0 070 3 

P 

49 7 


ORGR 

0 0703 

00000000 


49 6 


VFD 


0 0 7 0 4 

P 

4 39 


URGR 

0 0 7 U 4 

00000000 


500 


V F O 


0 0 70 5 

P 

501 


ORGR 

0 0 7 U 5 

00000000 


502 


VFD 


0 0 7 0 6 

P 

503 


ORGR 

U 0 7 06 

00000000 


50 4 


VFD 


0 0 7 0 7 

P 

505 


ORGR 




. .. .. .5 0 6.. 


EXT 

0 0 7 07 

00077777 


507 


VFD 


0 0710 

P 

50 8 


ORGR 

00710 

000 0 0 0 00 


509 


V F O 


0 0 711 

P 

5.1 U 


ORGR 

0 0711 

00000042 


511 


VFD 


0 0 712 

P 

512 


ORGR 

0 0712 

4 7 0 0 U 712 

P 

513 


STI 


00713 

P 

514 


ORGR 

0 0 713 

14100703 

F 

b 15 


E NI 

0 0714 

01000000 


516 


UJP 


0 0 715 

P - 

51? 


ORGR 

0 0 715 

oooooooa 


518 


VFD 


00717 

P 

519 


ORGR 

00717 

00000000 


'520 


VFD 


0 07 2 0 

P 

521 


ORGR 

0 0720 

00000000 


52 2 


VFD 


00721 

P 

52 3 


ORGR 

0 0 721 

00000000 


524 


VFO 


00722 

P 

525 


ORGR 

00722 

64630000 


526 


VFD 


0 0723 

P 

527 


ORGR 

0 072 3 

14100703 

P 

528 


ENI 


0 0 724 

P 

52 9 


ORGR 

0 0 724 

010 0 0 0 0 0 


530 


UJP 


0 0 7 2 5 

P 

.531 


ORGR 




532 , 


EXT 

0 07 25 

01077777 

X 

.5 33 


UJP 


00726 

F: 

534 


ORGR 

0 0726 

00000000 


535 


00 


00727 

P 

536 


ORGR 




537 


EXT 

0 0727 

01077777 

X 

53 8 


UJP 


0 0730 

P 

539 


ORGR 




54 0 


EXT 

0 0 730 

01077777 

X 

541 


UJP 


0 0731 

p 

542. 


ORGR 

0 0731 

00077777 


543 


VFO 


0 0 732 

p 

544 


ORGR 

0 07 32 

00400000 


545 


VFD 


00733 

p 

546 


ORGR 

0 0 733 

00000000 


547 


VFD 


0 0 734 

p 

■54 8 . 


ORGR 

0 0 7 34 

00000030 


549 


■VFD 


0 0735 

p . 

55 0 . 


ORGR 

0 0 735 

00000000 


' 551 


VFD 


0 0 736 

p 

552 


ORGR 

0 07 36 

14100703 

p 

55 3 


ENI 




5 5 4 


EXT 

0 0 7 3 7 

01077777 

X 

55 5 


UJP 


0 0 740 

p 

556 


ORGR 

0 0 740 

0QUQUQQ0 


557 


VFD 


0 0 741 

p 

558 

■ - 

ORGR 

0 0741 

77777776 


55 9 


VFD 


000 37 


560 

UTLPMACL 

EGU 




561 






562 






563 



00742 

01000000 


564 

CR8UILD 

UJP 

0 0743 

1420002b 


565 


ENI 

0 0744 

20201007 

p 

5 6 6 


LUA 

0 0 745 

40100000 


56 7 


STA 

0 0 74 6 

15177776 


56 8 


INI 

0 07 47 

02600744 

p 

569 


IJD 

00750 

53100000 


570 


TIA 

0 0 751 

15600001 


571 


IN A 

0 0 752 

44 100007 


572 


SWA 

0 0 753 

4410 0 0 1 b 


5 73 


SWA 

0 0 754 

13000030 


5 74 


SHAO 


UTLPMAC +FB 
A24/1MPURE 
UTLPMAC+BLF 
A 24/IMPURE 
UTLFMAC + BFBGN 
A 24/IMPURE 
UTLPMAC+BFCPP 
A24/IMPURE 
UTLPMAC+CAL8AK 

UTLPCB CALL BACK ADDRESS 

O9/UQ0,A15/UTLPCB 

UTLPMAG+IHAD 

09/0,A15/1MPURE 

UTLPMAC+LMIM 

A 24/34 

UTLPMAC+KILLFLAG 

¥ ,0 

UTLPMAC+EMAD 

UTLPMAC,Xl+CBI 
IMPURE 

UTLFMAC+ENIT 

09/000,A15/IMPURE 

UTLPMAC+COUHT 

A24/IMPURE 

UTLPMAC+POSI 

A24/IMPURE 

UTLPMAC+PFWORD 

A6/IMPURE,03/0,A15/IMPURE 

UTLPMAC+IDENT 

H18/UT 0,A6/IMPURE 

UTLPMAG+URBEXITA 

UTLPMAC,Xl+CBI 

UTLPMAC+URBEXIT 

IMPURE 

UTLPMAC+QIMGLOC 

URBLQKQ 

URBLCKQ- 

UTLPMAC+QPNT 

IMPURE 

UTLPMAC+QEMPTY 

UTLPQONE 

UTLPOONE 

UTLPMAC+STRTLOC 

UTLPCKQ 

UTLPCKQ 

UTLPMAC+URMORB 

09/Q 0 0,A15/URBL0KI 

UTLPNAC+QAOO 

06/0,03/4,A 15/IMPURE 

.UTLPMAC+NXPTR. 

A6/IMPURE,03/0,A15/IMPURE 

UTLPMAC+LXPTR 

09/000,A15/NXPTR 

UT1.PMAC+C0HTR0L 

012/0000,A12/IMPURE 

UTLPMAC+1NTL0C 

UTLPMAC,Xl+CBI 

UTLPINT ADDRESS FOR PROCESSING 

UTLPINT LP INTERRUPTS 

UTLPMAC+RETADD 
A9/IMPURE,A15/IMPURE 
UTLPMAC +CTR 
A24/IMPURE-1 
-UTLPMAC 


impure v./v 

UWM AXA-1, X2 MOVE THE MACRO INTO FREE STORAGE 

CRPR QTO,X2 

0,X1 

-1, X1 

“-3,X2 

XI BLOCK ADDRESS TO A 

1 

RDIST+1,Xl+CBI PLUG THE EMI BLOCK,CBI 

EXITAGD+1-1,Xl+CBI INSTRUCTIONS 
24 







CD 



ASSEMBLER/0 

S3 Vi. 0 

09/21/74 2217 

PAGE 17 

IFSTART 

3 

0 0 755 

20000702 

P 

575 


LDA 


U 0 756 

120 7 7 7b4 


5 7 6 
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0 0757 

1760 00 3 7 


5 77 


ANA 


0 0760 

5 3 7 0 0 0 0 0 


578 


T A I 

r\ 

\ M 

0 0 761 

41301075 

P 

5 79 


srq 


0 0 762 

20000702 

P 

580 


LDA 


0 0 763 

12077771 


581 


SHA 


0 0 764 

17600037 


58 2 
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O 

0 0 765 

15604000 


56 3 


INA 

0 0 766 

4U10U026 


58 4 


STA 


0 0 767 

01000742 

P 

565 


UUP 





586 



o 




587 



00770 

01000000 


538 

8UILOFCB 

UUP 


0 07 71 

45001005 

P 

58 9 


STAG 


0 0772 

14200007 


590 


ENI 

o 

0 0773 

20201036 

P 

591 


LOA 


0 0774 

40100000 


592 


STA 


00775 

15177776 


5 93 ■ 


INI 


0 0 776 

02600773 

P 

594 


IJD 

o 

UG777 

15100001 


595 


IN -I 


010 0 0 

53100000 


596 


TIA 


0 10 0 1 

40100010 


597 


STA 


01002 

25001005 

P 

5 9 6 


LDA3 

o 

010 0 3 

00700521 

X 

599 


RTJ 


010 0 4 

01000770 

p 

60 U 


UJP 





601 




0 1005 

00000000 


6 Q 2 

TEMPB 

VFO 

o 




60 3 







6 0-4 





01007 

p 

6 0 5 

CRPROTO 

EQU 



010 0 7 

p 

606 


ORGR 

o 

010 07 

0000000 0 


50 7 


VFO 


01010 

p 

60 3 


ORGR 


0 1U 10 

77 77 (111 


68 9, . . 


VFO 



01 Oil 

p 

610 


ORGR 

o 

0 1011 

o o o o o o a a 


5 J, 1, 


VFO 


0 1014 

Q 

612 


ORGR 


01014 

00777777 

X 

Ci .13 


■RTJ:. 


01015 

14101007 

p 

614 


ENI 

o 

01016 

01 0, 0 0 0 0 0 


615 


UJP 



01017 

P 1 

■61.6 


ORGR 


01017 

0 0 0 0 0 0 0 0 


617 


VFO 



3 if} 2 0 

p 

618 


GRSR 

o 

01020 

o o o o o a o o 


619 


VFO , 


0 1 0 ? i 

p 

62 § 


ORGR 


01021 

a h oo o o o o 


621. : ... - 


VFD__ 



0102.2 

p 

S, '? ‘3 1 

fe* £» 


ORGR 

o 

01022 

QUQ00QQ0 


623 


VFO 



010 2 3 

p 

624 


ORGR. 


01023 

14101007 

p 

625 . . . . 


ENI 


010 24 

o i o o o a o o 


626 ' ■ 


UJP 

O 


01025 

p 

■ f... -5 1 7 
ij i 


ORGR 

010 25 

0 0 0 0. 0 0 0 0 


62 3' 


VFO 



01026 

p 

629 


ORGR 


01026 

00000000 


6 3 0 


VFO 

o 


010 30 

p 

6 3 .1 


ORGR 


010 3 0 

00Q80GQ0 


6 3 2 


VFO 



01031- 

p . 

633 


ORGR 


0 10 31 

00400000 


6 34 


VFO 

o 


01033 

p 

635 


ORGR 


0 10 3 3 

400000QQ 


636' 


VFO 



010 34 

p 

b.3 7 


ORGR 


0 10.3 4 

00000000 


638: 


VFO 

o 


010 3 5 

p 

639 


ORGR 

010 35 

011! 0 0 0 0 0 


64 0 


UJP 



010 32 

p 

64 0 + 0 0 i 


ORGR 


010 3 2 

40000000 


640+002 


VFO 

o 


01036 

p 

64 1 


ORGR 


00027 


64 2 

CRPROTOL 

EQU 





643 







644 



o 


010 3 6 

p 

b4 5 

FCB 

EQU 



010 36 

p 

646 


ORGR 


010 36 

0 0 0 0 0 0 0 0 


6 4 7 


VFO 



010 37 

P : .7 

648 


ORGR 

o 

0 10 3 7 

00000000 


649 


VFD 


01040 

P 

65 0 


ORGR 


01040 

00000000 


651 


VFO 


O 


TEMP GET THE INPUT BLOCK LABEL 

-o-b 

370 

X3 

DUMIQ»X3 

TEMP GET THE CONTROL BYTE INFORMATION 

-6 
37B 
40 0 08 

C0MW0RD+1,X1+CBI 

CRQUILO 


IMPURE 

TEMP8 SAVE AQ 

FCBL-i,X2 ALSO GENERATE A FILE CONTROL 

FC8,X2 ■ BLOCK 

0 , Xi 

-i,xi 

*-3,X2 
1, X1 

XI FILE CONTROL BLOCK ADDRESS TO A 

CONBLOCK+FC8L , Xi SET THE POINTER 

TEMPO 

LINKIT 

BUILCfCB EXIT 

A24/IMPURE,A24/IMPURE 


-r- 

GRP R OTO+CONBLOC K 
A2A/IMPURE 
CRPRQT O+SfPTR 

A2A /-IMPURE . .. . 

CRPR.OTO+BLKPOS F 
A.24/IMPURE , . 

CRPfiOTO+RDIST-i .. . 

MftOHEKR, 

CRPROTOjXi+CBI 

IMPURE 

CRPROTO+WCNT 
A24/IMPURE : 

CRPROTO+CBLOCK 

A9/ I MPORE * A15/IMPURE 

CRPROTQ+TIMAD 

A 2.% /IMPURE. ■■ 

CRPRQT O+PSALOC 
A9/IHPURE,A1S/IMPURE 
CRPRGTO+EXITAOD-1 
CRPROTOJXI+CBI 
IMPURE 

CRPRQT O+PFSAVE 
A2A/IMPURE 
CRPROTO.+UHBWC 
A 2A/IMPURE» ASA/IMPURE. 

CRPRGTQ+UW8X3 

A6/IMPURE,03/0,A15/1MPURE 

GRPROT O+BATC.HPNT' 

06/00♦A3/4+IMPURE,A15/1MPURE 

CRPRQT O + EXPDATA 

A. 9/4O90+IMPURE»A15/IMPURE 

CRPRQTO+COMWORO 

012/0,A12/IMPURE 

CRPROTO+DEVTYPE 

IMPURE 

CRPROTO+DESTLP DESTINATION LINE PRINTER POINTER 

A1/1,A8/G,A15/IMPURE 

CRPROTO+UWMAXA FILL OUT THE SLOCK 

--CRPROTO 


FCB+ACCWORD 
A2A/IMPURE 
FCB+LP 
A2A/IMPURE 
FCB +COREP 
A24/IMPURE 


<D 
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o 

o 
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o 

o 

o 

o 
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o 
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010 41 
OUOUOOUU 

p 

65 2 

65 3 


m R 

F G 0 + C 6 P 

A 24/IMPURE - 


U1U42 

p 

65 4 


OR GR 

FCB+CPP 

010 4 2 

00000000 


65 5 


VFO 

A24/IMPURE 


u i u 4 j 

p 

65 6 


ORGR 

FCB+BLKR 

0104.3- 

77777770 


657 


VFO 

A'2.4 /1M PURE”! 


010 44 

p 

65 d 


ORGR 

FGB+EPP 

01044 

04400001 


65 9 


VFD 

05/02,A4/HTCR,A15/00001 DESTRUCTIVE READ AND 




66 0 

-*• 


STILL BEING CREATED 


010 45 

p 

b 6 i 


ORGR 

FCG+TFL 

010 45 

ooouoaoo 


66 2 


VFO 

A24/IMPURE 


o o o i a 


66 3 

FCBL 

EQU 

*-FCB 




664 





0 0024 


66 5 

OUMQL 

EQU 

20 




666 




010 46 



6o 7 

DUH0QH3 

BS3 

OUMGL+3 


01051 

p 

68 8 ' 

OUMOQ 

EQU 

DUMCQM3+3 

0.10 75 



6 6 9 

OlililQ 

BSS 

OUMQL 

01121 



b 1 0 . 

OUHCQ 

ess 

OUMQL 




671 


ENO 



NO LINES WITH ERRORS 
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IF START 


ACCWORD 

aooiju 

71 

646 

01036P 







111+43 

0 010 3 P 



ASCII 

0 0 10 2 P 

113 til 

111+5 

00035P 

111+15 

U0047P 

111+23 

00057P 

111+30 

Q006&P 



. BA TO HP NT 

a o a .2 2 

13 0 

131 

000 OOP 

633 

01031P 









BCD8CQL 

0 U 3 31P 

2 05 

192 

0 03 IIP 











30 081Q L 

0 0325 P 

20 3 

167 

002&1P 











0G080QL 

(J O 32 IP 

201 

140 

0 02-2 7 P 











8C0P0P8C 

0 0 32 7 P 

204 

190 

00307P 











acopupsi 

0 0 3 2 3 P 

2 0 2 

165 

0 025 7 P 











BCOPOP 80 

0 0 317 P 

20 0 

138 

00225P 











acoPTP 

0 0 3 7 0 P 

244 

233 

0 0 3 5 6 P 











3CDPTPB 

00371P 

245 

2 38 

00363P 











acour 

00701P 

492 

425 

0 06 OOP 

426 

00601P 









8F8GN 

0 0 0 0 2 

13 

15 

ooooop 

5 01 

0 0 7 0 5 P 









flFCPP 

00 003 

15 

19 

0 00 OOP 

503 

007U6P 









B F PT R 

OOUOi 

109 

ill 

OOOOOP 

608 

OIOIOP 









BHSILOC 

0 0525P 

36 2 

357 

0 0 5 2 0 P 











8HSITAB 

00523P 

361 

354 

0 0515P 











UH3ITA8L 

0 0 5 2 7 P 

363 

351 

00512P 











0IT18 

X. 

6 0 

4 04 

00552P 











8IT19 

X 

61 

106 

00023P 

110 

00027P 

421 

0 0 5 71P 







BIT.2 0 

X 

62 

381 

0 0 5 3 5 P 











0IT22 

X 

63 

232+1 

00353P 

384 

0 05 40 P 

423+1 

0 05 74P 







3IT23 

X 

64 

158 

0 0 25 OP 

24 0 

G0365P 

481 

0 0 667 P 







8L0LPTA0 

X 

67 

432 

OQ.6U7P 











BLF 

0 0 0 0 i 

12 

13 

OOOOOP 

499 

i! 07 04P 









8LKP0S 

0 0 U 0 2 

111 

112 

OOOOOP 

610 

OiOilP 









3LKR 

0 0 0 0 5 

88 

656 

Q1043P 











BUILOQLK 

X 

6 5 

488 

00676F 











8UILDCRQ 

X 

66 

263 

004Q2P 

449 

00635P 









OUILDFCB 

0 0 7 7 0 P 

588 

60 0 

01004P 











C A L 3 A ,< 

0 00 04 

19 

22 

OOOOOP 

505 

Q 0 7 0 7 P 









C A u L 3 A D 

00004 

113 

115 

0 0 0 0 ; -0 P 










00622P 

GDI 

0 0 0 0 0 

4 0 

2 35 

00360P 

237 

0 03.6 2 P 

241 

003&6P 

242. 

0 0367 P 

439 

0 0 616 P 

443 


445+5 

Q0631P 

515 

Q0713P 

528 

0Q723P 

553 

0 0 736P 

572 

0 0 7 5 2 P 

573 

Q0753P 




584 

0 0 7 6 6 P 

. 614 

01Q15P 

625 

01023P 







C3LOCK 

0 0 011 

118 

119 

OOOOOP 

618 

0.102 OP 









CdP 

00 003 

76 

652 

01041P 











CHAR 

X 

67 + 1 

113 + 4 

0 014 4 P 











CHAROUT 

' . X : ■ . . . . ... 

67 + 2 

113+9 

0Q151P 











CO H HO RO 

3 0 025 

140 

142 

OOOOOP 

637 

01034P 

443' 

00622? 

58k 

0G7&SP 





CONBLOCK 

0 0(300 

108 

109 

OOOOOP 

60S 

01007P 

272 

0 0415 P 

597 

oioaip 

\ 




CONTROL 

0 0 032 

19 2 

194 

OOOOOP 

550 

00735P 

439 

0 G616P 







CO REP 

U 0 0 0 2 

7 3 

76 

OOOOOP 

650 

01G40P 









COUNT 

00014 

37 

33 

OOOOOP 

519 

a 0716P 









CPP 

0 3 004 

77 

654 

01042P 











CR3UILD 

0 8 7 4 2 P 

564 

260 

a 0 377p 

44 0 : 

00617P 

585 

0 0 7 6 7 P 






01020P 

. CRPROT0 

01007P 

6 0 5 

6 e & 

010 0 7P 

608 

OIOIOP 

610 

01G11P 

612 

01012P 

616 

01017P 

618 


620 

01021F 

622 

01022P 

624 

010 2 3 P 

6 2.7 

01025P 

829 

010 2 8 P 

631 

010 3 0 P 




633 

01031F ■ 

■ 635 

01032P 

&37 

G1034P 

639 

010 35P 

8 40 + 1 

01036P 

641 

01033P 




64 2 

01336P 

566 

0Q744P 

614 

01015P 

A o n 

Q1023P 





- CRPROTOL 

0 0 0 2 7 

642 













CRTVPt 

0 0 5 3 2 P 

366 

342 

QQ501P 







111+61 

0Q125P 



CTO 

00143P 

113 + 3 

ill+50 

aoiiZP 

ill+52 

a o 11 4 p 

111+56 

G0120P 

111+59 

00123P 



CT0X1 

Q0141P 

113+1 

113+5 

00145P 

113+8 

0 0150 P 









CT0X3 

00142P 

1.13 + 2 

113+6 

00146P 











CTR 

0083& 

19 8 

558 

00741P 







111+42 

00102P 



010 

X 

6 7 + 3 

.111+4 

0 0 0 3 4 P 

111+14 

Q0046P 

111+22 

00Q5SP 

111 + 29 

00065P 



OlOOO 

X 

6 7+4 

111+20 

00054P 











0 & 0 0 0 0 

Q0154P 

113+12 

11:1+10 

00042P 











DO 

Q0164P 

113+20 

i11+ 3 1 

0a 067P 

111+32 

00070P 









OESTLP • 

0 0 0 2 3 

131 

132 

OOOOOP 

640+1 

01036P 

445 + 5 

0 0 63IP 







OEVBLK 

0 0 013 

36 

37 

OOOOOP 











OEvrvPE 

0 0 026 

142 

144 

OOOOOP 

639 

01035 P 

2 65 

Q0404P 

445 

00624P 





* DISKOUSY 

00013 

121 













OUMCQ 

0112 IP 

67 0 

174 

00267P 

181 

0 0 2 7 & P 

475 

0 0&61P 







OUHIQ 

010 7 5 P 

669 

14 7 

00236P 

155 

0 0245P 

579 

00761P 







OUMOQ 

010 51P 

66 8 

125 

Q02.10P 

129 

00214P 

385 

00541P 

482 

00&70P 





DUM0QM3 

01 0 4 6 P 

667 

663 

01075P 











QUHPLAB 

X 

67 + 5 

iii+65 

0 0131P 











OUHPLABL 

X 

6 7 + 6 

111+62 

00126P 











DUMQL 

0 0 024 

665 

667 

01046P 

669 

01075P 

670 

0112 IP 

124 

00207P 

146 

00235P 

173 

0Q266P 

Eil AO 

0 0 010 

2 6 

27 

OOOOOP 

514 

0 0 713 P 

47 0 

0 0654 P 







EH IT 

0 0 012 

28 

36 

OOOOOP 

517 

0 0 715 P 

232 + 2 

0 0 3 5 4 P 

232 + 3 

0 0355P 

241 

003&6P 

423 + 2 

Q0575P 




423 + 3 

0 0 57 6 P 











EPP 

00 006 

9 0 

658 

01044P 

27 0 + 2 

0 0413P 









EXITADO 

0 0 015 

123 

124 

OOOOOP 

624 

01023P 

573 

00753P 







EXPDATA 

0 0 024 

13 7 

140 

OOOOOP 

635 

01032P 









FB 

0 0 0 0 0 

11 

12 

OOOOOP 

497 

00703P 








01043P 

FOB 

01036P 

64 5 

646 

U1036P 

648 

U10 37 P 

650 

01040P 

&52 

01041P 

654 

01042P 
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FGBL 



0 0 010 
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266 

0040bP 

272 

00415P 



FORMSWRD 
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4 0 







HARDWARE 


X 



6 8 

227 

00345P 

229 

0 0 3 47 P 

Cl 


HULENGTH 


X 



69 

223 

0 034 IP 





HH 



00.161P 

11 

3 + 16 

111 + 6 

0 9 0 3 6 P 
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00037P 
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E 


0 0 5 3 3 P 


369 

48 

OOOOOPv 

370 

0 0 5 3 4 P 



H 31.SUP 

c 


0U375P 


258 

48 

0 0 DO OP 

3.04 

0 0 4 52 P 

O 


HSIALLOC 



0 0461P 


324 

302 

0 04S1P 




'HSI COUNT 



00462P 


326 

281 

00426P 

350 

00511P 



riSIEXIT 



0 0 A 5 2 P 


303 

359 

00522P 





HSIFOUND 



00453P 


305 

291 

00437P 



o 


HSILOOK 



00433P 


286 

2 83 

0 043 OP 





HSILOOP 
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29 2 

0044QP 





HSINOT 



0 0 44IP 
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288 

00434P 





HSIPTR 



00461P 
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00427P 

298 

00445P 

o 


HSIPUT 



0 0 4 4 4 P 


297 
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0 046 OP 





HSISLOOP 



00466P 
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349 

0051OP 





HSITABP 



0 0 514 P 
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329 

0 0 4 6 5 P 





HSTTill 
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403 

411 

00561P 



o 


H3TT.3TR 

E 


00563P 


414 

49 

OOOOOP 

415 

Q0564P 
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E 


0Q555P 


40 7 

.49 

osooap 





HT Ci< 



0 0 0 04 
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00532P 
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01044P 


■r 

HTFILE 
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V 
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0 0 0 0 2 


20 6 
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0 0017 


219 
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V 

HT MAX 



00916 


218 






V 

HTHSF 



0 0 014 


216 
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r 
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00005 


209 





V 

HT NULL 
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* 

HTPLOT 
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HTPTP 
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217 

224 
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V 

HTPUN 
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20 7 







HTRAF' 



Q 0 012 


214 







HTTASK 
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215 






V 

H T TTY 



oooas 
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V 

HTTV 
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213 






IDENT 



0 0 017 


49 
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.525.. 

00722P 
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70 

91 

0 0 0.0 IP 





IFCONX 



00134P 
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98 
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22 

24 
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01Q17P 
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01024P 
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O103OP 
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640 

01035P 
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